position2index Function

public function position2index(ix, iy, iz, nx, ny) result(index_)

Function to calculate the index inside a rectangular grid from position ix,iy,iz

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ix

Integer variables ix,iy,iz,nx,ny
integer, intent(in) :: iy

Integer variables ix,iy,iz,nx,ny
integer, intent(in) :: iz

Integer variables ix,iy,iz,nx,ny
integer, intent(in) :: nx

Integer variables ix,iy,iz,nx,ny
integer, intent(in) :: ny

Integer variables ix,iy,iz,nx,ny

Return Value integer

Integer variable with the index


Called by

proc~~position2index~2~~CalledByGraph proc~position2index~2 position2index proc~calculate_distance_between_prototypes~2 two_level_self_organizing_map%calculate_distance_between_prototypes proc~calculate_distance_between_prototypes~2->proc~position2index~2 proc~create_2lsom two_level_self_organizing_map%create_2lsom proc~create_2lsom->proc~position2index~2 proc~read_som_layer two_level_self_organizing_map%read_som_layer proc~read_som_layer->proc~position2index~2 proc~train_grid_layer two_level_self_organizing_map%train_grid_layer proc~train_grid_layer->proc~position2index~2 proc~train_grid_layer->proc~calculate_distance_between_prototypes~2 proc~update_weights~2 two_level_self_organizing_map%update_weights proc~update_weights~2->proc~position2index~2 proc~train_2lsom two_level_self_organizing_map%train_2lsom proc~train_2lsom->proc~train_grid_layer proc~train_two_level_som train_two_level_som proc~train_two_level_som->proc~create_2lsom proc~train_two_level_som->proc~train_2lsom

Source Code

   function position2index(ix,iy,iz,nx,ny) result(index_)
   !========================================================================================
!!   Function to calculate the index inside a rectangular grid from position ix,iy,iz
      integer,intent(in) :: ix,iy,iz,nx,ny
!! Integer variables ix,iy,iz,nx,ny
      integer ::index_
!! Integer variable with the index
   !*****
      index_=ix+(iy-1)*nx+(iz-1)*nx*ny
   !
   end function position2index